home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / --llfb-- / programas / sources1.dms / sources1.adf / SOURCES / ShadeBobs / ShadeBobs2.ASM < prev   
Assembly Source File  |  1996-06-04  |  23KB  |  607 lines
  1. ;COLORMAGIC II BY LADO OF FI-RE CREW !!!!
  2.  
  3.  
  4. ;    org     $22000
  5. ;    load     $22000
  6.  
  7.     Section    Roman,code_c
  8.     
  9. j    bsr    re7
  10.     
  11.     lea     $dff000,a6                ;custom
  12. km1    move.l     4(a6),d0        ;waitraster
  13.     lsr.l     #8,d0
  14.     cmp.w    #$130,d0
  15.     bne    km1
  16.     move.w     #$7fff,$96(a6)
  17.     move.w     #$7fff,$9a(a6)
  18.     move.l     #copper,$84(a6)
  19.     clr.w     $8a(a6)                 ;start copper
  20.     move.w     #$87c0,$96(a6)
  21.     move.w     #$c010,$9a(a6)
  22. wait    cmp.b    #$ff,6(a6)
  23.     bne     wait
  24.     bsr    pixar
  25.     btst     #6,$bfe001               ;bal eger
  26.     bne     wait
  27. k1    btst     #$e,2(a6)
  28.     bne     k1
  29.     move.w     #$7fff,$9a(a6)
  30.     move.w     #$7fff,$96(a6)
  31.     clr.w    $88(a6)
  32.     move.w     #$87f0,$96(a6)
  33.     move.w     #$e02c,$9a(a6)
  34.     moveq     #0,d0
  35.     rts
  36.  
  37. pixar    btst    #$e,2(a6)
  38.     bne    pixar
  39.     move.l    #-1,$44(a6)        ;maszk
  40.     lea    tarolo(pc),a5        ;work area
  41.     move.l    textura(pc),a2        ;aktualis minta
  42.     lea    datas1(pc),a0        ;y
  43.     lea    datas2(pc),a1        ;x
  44.     movem.w    code1(pc),d2-d5        ;y,addy,x,addx
  45.     moveq    #7,d6
  46. re1    move.w    (a1,d2.w),d0        ;y
  47.     add.w    (a1,d3.w),d0        ;addy
  48.     move.w    (a0,d4.w),d1        ;x
  49.     add.w    (a0,d5.w),d1        ;addx
  50.     movem.w    d2-d6,-(sp)        ;y,addy,x,addx,db --> verem
  51.     movem.l    code2(pc),d2-d7        ;$ffffffff-tel feltoltes
  52.     lea    $7f0ba,a3
  53.     movem.l    d2-d7,-(a3)
  54.     movem.l    d2-d7,-(a3)
  55.     movem.l    d2-d7,-(a3)
  56.     movem.l    d2-d7,-(a3)
  57.     movem.l    d2-d7,-(a3)
  58.     movem.l    d2-d7,-(a3)
  59.     movem.l    d2-d7,-(a3)
  60.     movem.l    d2-d5,-(a3)
  61.     mulu    #$c8,d0            ;y*kepernyo szelesseg
  62.     add.l    #$70000,d0        ;aktualis sor
  63.     move.w    d1,d3            ;x
  64.     lsr.w    #3,d1            ;x/8  --> oszlop
  65.     add.w    d1,d0            ;a minta uj helye
  66.     move.w    d0,(a5)+                ;pozicio letarolasa
  67.     ror.w    #4,d3            ;ASHift ertek  0-3.bit --> 12-15.-be
  68.     and.w    #$f000,d3        ;levalasztas
  69.     or.w    #$0f6a,d3        ;USE ABCD  LF:
  70.     move.l    #$7f000,d1        ;A forras
  71.     move.l    #$7f0c0,d2        ;D cel
  72.     move.w    #$07c3,d6        ;blt.size    f=35,v=48
  73.     move.w    #$c2,d4            ;BMOD
  74.     moveq    #0,d5            ;AMOD,DMOD
  75.     moveq    #4,d7            ;5 bitmezo van
  76. re2    move.w    #$0dc0,$40(a6)        ;USE B,A,D  LF:D=AB
  77.     movem.l    d0-d2,$4c(a6)        
  78.     move.w    d4,$62(a6)
  79.     move.l    d5,$64(a6)
  80.     move.w    d6,$58(a6)
  81.     nop
  82.     move.w    d3,$40(a6)
  83.     movem.l    d0-d1/a2,$48(a6)
  84.     move.l    d0,$54(a6)
  85.     movem.w    d4-d5,$60(a6)
  86.     move.w    d4,$66(a6)
  87.     move.w    d6,$58(a6)
  88.     add.w    #$28,d0
  89.     exg    d1,d2
  90.     dbf    d7,re2
  91.     movem.w    (a7)+,d2-d6
  92.     add.w    code3(pc),d2
  93.     add.w    code3+2(pc),d3
  94.     add.w    code3+4(pc),d4
  95.     add.w    code3+6(pc),d5
  96.     and.w    #$3fe,d2
  97.     and.w    #$3fe,d3
  98.     and.w    #$3fe,d4
  99.     and.w    #$3fe,d5
  100.     dbf    d6,re1
  101. bel1    add.w    #0,code1+2
  102. bel2    add.w    #0,code1+4
  103. bel3    add.w    #0,code1+6
  104. bel4    add.w    #0,code1+8
  105.     and.w    #$3fe,code1+2
  106.     and.w    #$3fe,code1+4
  107.     and.w    #$3fe,code1+6
  108.     and.w    #$3fe,code1+8
  109.     
  110. re3    btst    #$e,2(a6)
  111.     bne    re3
  112.     move.l    #$09f00000,$40(a6)
  113.     move.l    #$00220022,$64(a6)
  114.     lea    tarolo(pc),a0
  115.     move.l    #$70000,$50(a6)
  116.     move.l    #$60000,$54(a6)
  117.     moveq    #7,d7
  118.     move.w    #$8400,$96(a6)
  119. re4    move.w    (a0),$52(a6)
  120.     move.w    (a0)+,$56(a6)
  121.     move.w    #$2803,$58(a6)
  122.     dbf     d7,re4
  123.     
  124.     tst.w     lass
  125.     bmi    init
  126.     subq.w    #1,lass
  127.     rts
  128. init    move.w    #$ff,lass        ;FRICI ! Amig fenn van egy kep !
  129.     add.w    #32,pointr        ;next data structure
  130. re5    btst    #$e,2(a6)
  131.     bne    re5
  132. re7    lea    form(pc),a0        ;adatok
  133.     add.w    pointr(pc),a0
  134.     tst.w    (a0)
  135.     bpl    noend
  136.     clr.w    pointr
  137.     bra    re7    
  138. noend    movem.w    (a0)+,d0-d3
  139.     movem.w    d0-d3,code1+2
  140.     movem.w    (a0)+,d0-d3
  141.     movem.w    d0-d3,code3
  142.     movem.w    (a0)+,d0-d3
  143.     move.w    d0,bel1+2
  144.     move.w    d1,bel2+2
  145.     move.w    d2,bel3+2
  146.     move.w    d3,bel4+2
  147.     move.l    (a0)+,a1
  148.     move.l    (a0),textura
  149.     lea    $60000,a0
  150. re6    clr.l    (a0)+
  151.     cmp.l    #$80000,a0
  152.     bcs    re6
  153.     moveq    #31,d7
  154.     lea    copcol(pc),a0
  155. ujc    move.w    (a1)+,(a0)
  156.     addq.w    #4,a0
  157.     dbf    d7,ujc
  158.     rts
  159.  
  160. copper    dc.w     $8e,$1e1d,$90,$7fd1,$92,$30,$94,$c8,$102,$88,$96,$20
  161.     dc.w     $100,$200,$108,$a0,$10a,$a0
  162.     dc.w     $e0,6,$e2,0,$e4,6,$e6,$28,$e8,6,$ea,$50
  163.     dc.w     $ec,6,$ee,$78,$f0,6,$f2,$a0,$180
  164. copcol    dc.w     0,$182,0,$184,0,$186,0,$188,0
  165.     dc.w    $18a,0,$18c,0,$18e,0,$190,0
  166.     dc.w     $192,0,$194,0,$196,0,$198,0
  167.     dc.w    $19a,0,$19c,0,$19e,0,$1a0,0
  168.     dc.w     $1a2,0,$1a4,0,$1a6,0,$1a8,0
  169.     dc.w    $1aa,0,$1ac,0,$1ae,0,$1b0,0
  170.     dc.w     $1b2,0,$1b4,0,$1b6,0,$1b8,0
  171.     dc.w    $1ba,0,$1bc,0,$1be,0,$2c01,$fffe
  172.     dc.w    $100,$5200
  173.     dc.w     $ffdf,$fffe,$3201,$fffe,$100,$200,$ffff,$fffe
  174.  
  175.  
  176. ;FRICI !!! itt vannak a szinek ! csinalhatsz ujakat is !!!
  177.  
  178.  
  179.  
  180. color1    dc.w    $124,$224,$224,$324,$434,$545,$656,$767,$878,$989,$a9a
  181.     dc.w    $bab,$cbc,$dcd,$ede,$fef,$fff,$ffe,$eed,$ddc,$ccb
  182.     dc.w    $bba,$aa9,$998,$887,$776,$665,$554,$443,$334,$224,$124
  183.  
  184. color2    dc.w    $111,$123,$234,$345,$456,$567,$678,$789,$89a,$9ab,$abc
  185.     dc.w    $bcd,$cde,$def,$eff,$def,$cde,$bcd,$abc,$9ab,$89a
  186.     dc.w    $789,$678,$998,$567,$456,$345,$234,$123,$111,$000,$100
  187.  
  188. color3    dc.w    $fff,$eee,$ddd,$ccc,$bbb,$aaa,$999,$888,$777,$666,$555
  189.     dc.w    $444,$333,$222,$111,$000,$000,$111,$222,$333,$444
  190.     dc.w    $555,$666,$777,$888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff
  191.  
  192. color4    dc.w    $000,$101,$202,$303,$404,$505,$606,$707,$808,$909,$a0a
  193.     dc.w    $b1b,$c1c,$d1d,$e2e,$f2f,$f2f,$f2e,$e1d,$d1c,$c1b
  194.     dc.w    $b1a,$a09,$908,$807,$706,$605,$504,$403,$304,$202,$101
  195.  
  196. color5    dc.w    $fda,$ec9,$db8,$ca7,$b96,$a85,$974,$863,$752,$641,$531
  197.     dc.w    $432,$321,$321,$321,$321,$321,$321,$321,$42c,$531
  198.     dc.w    $642,$753,$864,$975,$a86,$b97,$ca8,$db8,$ec9,$fda,$fda
  199.  
  200. color6    dc.w    $101,$202,$202,$313,$424,$535,$646,$757,$868,$979,$a8a
  201.     dc.w    $b9b,$cac,$dbd,$ece,$fdf,$fff,$fff,$eee,$ddd,$ccc
  202.     dc.w    $bbb,$aaa,$999,$888,$777,$666,$555,$444,$333,$222,$111
  203.  
  204. color7    dc.w    $100,$200,$200,$300,$400,$500,$600,$700,$800,$900,$a00
  205.     dc.w    $b00,$c00,$d00,$e00,$f00,$f00,$ff0,$ee0,$dd0,$cc0
  206.     dc.w    $bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  207.  
  208. color8    dc.w    $10,$20,$20,$30,$40,$50,$60,$70,$80,$90,$a0
  209.     dc.w    $b0,$c0,$d0,$e0,$f0,$f0,$ff0,$ee0,$dd0,$cc0
  210.     dc.w    $bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  211.  
  212. color9    dc.w    $1,$2,$2,$3,$4,$5,$6,$7,$8,$9,$a
  213.     dc.w    $b,$c,$d,$e,$f,$f,$ff0,$ee0,$dd0,$cc0
  214.     dc.w    $bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
  215.  
  216. ;!!!!!!!!!!!! LADO !!!!!!!!!!!!!!
  217. ;** Javaslom, hogy az egyes kepek kialakulása után álljon meg a
  218. ;** rutin (merevedjen ki a kep) par masodpercre (1-2 sec), hogy
  219. ;** a vegeredmenyben tudjon gyönyörködni a nagyerdemu, es csak
  220. ;** utana menjen tovább !
  221. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  222. ;!!!! lass = $ff          !!!!!!
  223. ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  224.  
  225. form    dc.w    0,0,$140,$140,$a0,$a0,$a0,$a0,$6,0,$6,0
  226.     dc.l    color6,minta3
  227.  
  228.     dc.w    0,0,$100,$100,$10,$10,$2,$2,$10,$5,$5,$0
  229.     dc.l    color5,minta5
  230.  
  231.     dc.w    0,0,$200,$200,$80,$80,$80,$80,$10,8,$1,10
  232.     dc.l    color8,minta2
  233.  
  234.     dc.w    0,0,$140,$140,$50,$50,$50,$50,2,2,6,6
  235.     dc.l    color4,minta3
  236.  
  237.     dc.w    0,0,$300,$300,$46,$46,$86,$86,$6,$2,$2,$2
  238.     dc.l    color5,minta1
  239.     
  240.     dc.w    0,0,$170,$170,$20,$20,$a0,$a0,$4,4,$4,0
  241.     dc.l    color6,minta5
  242.  
  243.     dc.w    0,0,$100,$100,$62,$62,$62,$62,$20,$1e,$20,$1e
  244.     dc.l    color7,minta6
  245.  
  246.     ;dc.w    0,0,$160,$160,$90,$90,$90,$90,5,5,1,1
  247.     ;dc.l    color3,minta4
  248.  
  249.     dc.w    0,0,$140,$140,$30,$30,$30,$30,2,2,0,0
  250.     dc.l    color9,minta1
  251.     
  252.     dc.w    0,0,$100,$100,$100,$100,$50,$50,$2,$2,$4,$4
  253.     dc.l    color1,minta7
  254.     
  255.     dc.w    0,0,$100,$100,$9,$9,$50,$50,$6,$6,$6,$6
  256.     dc.l    color5,minta7
  257.  
  258.     dc.w    $ffff        ;vege jel
  259.     
  260.     ;32*6 byte   = 192
  261.  
  262.  
  263. ;FRICI !!!  Ezeket a mintakat masolom fel ! Csinalj ujakat !
  264.  
  265.  
  266. minta1    dc.w    %0000000000000001,%0000000000000000,0
  267.     dc.w    %0000000000000001,%0000000000000000,0
  268.     dc.w    %0000000000000011,%1000000000000000,0
  269.     dc.w    %0000000000000011,%1000000000000000,0
  270.     dc.w    %0000000000000111,%1100000000000000,0
  271.     dc.w    %0000000000000111,%1100000000000000,0
  272.     dc.w    %0000000000001111,%1110000000000000,0
  273.     dc.w    %0000000000001111,%1110000000000000,0
  274.     dc.w    %0000000000011111,%1111000000000000,0
  275.     dc.w    %0000000000011111,%1111000000000000,0
  276.     dc.w    %0000000000111111,%1111100000000000,0
  277.     dc.w    %0000000000111111,%1111100000000000,0
  278.     dc.w    %0000000001111111,%1111110000000000,0
  279.     dc.w    %0000000001111111,%1111110000000000,0
  280.     dc.w    %0000000011111111,%1111111000000000,0
  281.     dc.w    %0000000011111111,%1111111000000000,0
  282.     dc.w    %0000000111111111,%1111111100000000,0
  283.     dc.w    %0000000111111111,%1111111100000000,0
  284.     dc.w    %0000001111111111,%1111111110000000,0
  285.     dc.w    %0000001111111111,%1111111110000000,0
  286.     dc.w    %0000011111111111,%1111111111000000,0
  287.     dc.w    %0000011111111111,%1111111111000000,0
  288.     dc.w    %0000111111111111,%1111111111100000,0
  289.     dc.w    %0000111111111111,%1111111111100000,0
  290.     dc.w    %0001111111111111,%1111111111110000,0
  291.     dc.w    %0001111111111111,%1111111111110000,0
  292.     dc.w    %0011111111111111,%1111111111111000,0
  293.     dc.w    %0011111111111111,%1111111111111000,0
  294.     dc.w    %0111111111111111,%1111111111111100,0
  295.     dc.w    %0111111111111111,%1111111111111100,0
  296.     dc.w    %1111111111111111,%1111111111111110,0
  297.     dc.w    %1111111111111111,%1111111111111110,0
  298.  
  299. minta2    dc.w    %0000000000000001,%0000000000000000,0
  300.     dc.w    %0000000000000001,%0000000000000000,0
  301.     dc.w    %0000000000000011,%1000000000000000,0
  302.     dc.w    %0000000000000011,%1000000000000000,0
  303.     dc.w    %0000000000000111,%1100000000000000,0
  304.     dc.w    %0000000000000111,%1100000000000000,0
  305.     dc.w    %0000000000001110,%1110000000000000,0
  306.     dc.w    %0000000000001110,%1110000000000000,0
  307.     dc.w    %0000000000011100,%0111000000000000,0
  308.     dc.w    %0000000000011100,%0111000000000000,0
  309.     dc.w    %0000000000111000,%0011100000000000,0
  310.     dc.w    %0000000000111000,%0011100000000000,0
  311.     dc.w    %0000000001110000,%0001110000000000,0
  312.     dc.w    %0000000001110000,%0001110000000000,0
  313.     dc.w    %0000000011100000,%0000111000000000,0
  314.     dc.w    %0000000011100000,%0000111000000000,0
  315.     dc.w    %0000000111000000,%0000011100000000,0
  316.     dc.w    %0000000111000000,%0000011100000000,0
  317.     dc.w    %0000001110000000,%0000001110000000,0
  318.     dc.w    %0000001110000000,%0000001110000000,0
  319.     dc.w    %0000011100000000,%0000000111000000,0
  320.     dc.w    %0000011100000000,%0000000111000000,0
  321.     dc.w    %0000111000000000,%0000000011100000,0
  322.     dc.w    %0000111000000000,%0000000011100000,0
  323.     dc.w    %0001110000000000,%0000000001110000,0
  324.     dc.w    %0001110000000000,%0000000001110000,0
  325.     dc.w    %0011100000000000,%0000000000111000,0
  326.     dc.w    %0011100000000000,%0000000000111000,0
  327.     dc.w    %0111000000000000,%0000000000011100,0
  328.     dc.w    %0111000000000000,%0000000000011100,0
  329.     dc.w    %1110000000000000,%0000000000011110,0
  330.     dc.w    %1110000000000000,%0000000000011110,0
  331.  
  332. minta3    dc.w    %0000000000001111,%1110000000000000,0
  333.     dc.w    %0000000001111111,%1111110000000000,0
  334.     dc.w    %0000000111111111,%1111111100000000,0
  335.     dc.w    %0000001111111111,%1111111110000000,0
  336.     dc.w    %0000011111111111,%1111111111000000,0
  337.     dc.w    %0000111111111111,%1111111111100000,0
  338.     dc.w    %0001111111111111,%1111111111110000,0
  339.     dc.w    %0011111111111111,%1111111111111000,0
  340.     dc.w    %0011111111111111,%1111111111111000,0
  341.     dc.w    %0111111111111111,%1111111111111100,0
  342.     dc.w    %0111111111111111,%1111111111111100,0
  343.     dc.w    %0111111111111111,%1111111111111100,0
  344.     dc.w    %1111111111111111,%1111111111111110,0
  345.     dc.w    %1111111111111111,%1111111111111110,0
  346.     dc.w    %1111111111111111,%1111111111111110,0
  347.     dc.w    %1111111111111111,%1111111111111110,0
  348.     dc.w    %1111111111111111,%1111111111111110,0
  349.     dc.w    %1111111111111111,%1111111111111110,0
  350.     dc.w    %1111111111111111,%1111111111111110,0
  351.     dc.w    %0111111111111111,%1111111111111100,0
  352.     dc.w    %0111111111111111,%1111111111111100,0
  353.     dc.w    %0111111111111111,%1111111111111100,0
  354.     dc.w    %0011111111111111,%1111111111111000,0
  355.     dc.w    %0011111111111111,%1111111111111000,0
  356.     dc.w    %0001111111111111,%1111111111110000,0
  357.     dc.w    %0000111111111111,%1111111111100000,0
  358.     dc.w    %0000011111111111,%1111111111000000,0
  359.     dc.w    %0000001111111111,%1111111110000000,0
  360.     dc.w    %0000000111111111,%1111111100000000,0
  361.     dc.w    %0000000001111111,%1111110000000000,0
  362.     dc.w    %0000000000001111,%1110000000000000,0
  363.  
  364. minta4    dc.w    %0000000000000101,%0100000000000000,0
  365.     dc.w    %0000000000101010,%1010100000000000,0
  366.     dc.w    %0000000101010101,%0101010100000000,0
  367.     dc.w    %0000001010101010,%1010101010000000,0
  368.     dc.w    %0000010101010101,%0101010101000000,0
  369.     dc.w    %0000101010101010,%1010101010100000,0
  370.     dc.w    %0001010101010101,%0101010101010000,0
  371.     dc.w    %0010101010101010,%1010101010101000,0
  372.     dc.w    %0001010101010101,%0101010101010000,0
  373.     dc.w    %0010101010101010,%1010101010101000,0
  374.     dc.w    %0101010101010101,%0101010101010100,0
  375.     dc.w    %0010101010101010,%1010101010101000,0
  376.     dc.w    %0101010101010101,%0101010101010100,0
  377.     dc.w    %1010101010101010,%1010101010101010,0
  378.     dc.w    %0101010101010101,%0101010101010100,0
  379.     dc.w    %1010101010101010,%1010101010101010,0
  380.     dc.w    %0101010101010101,%0101010101010100,0
  381.     dc.w    %1010101010101010,%1010101010101010,0
  382.     dc.w    %0101010101010101,%0101010101010100,0
  383.     dc.w    %0010101010101010,%1010101010101000,0
  384.     dc.w    %0101010101010101,%0101010101010100,0
  385.     dc.w    %0010101010101010,%1010101010101000,0
  386.     dc.w    %0001010101010101,%0101010101010000,0
  387.     dc.w    %0010101010101010,%1010101010101000,0
  388.     dc.w    %0001010101010101,%0101010101010000,0
  389.     dc.w    %0000101010101010,%1010101010100000,0
  390.     dc.w    %0000010101010101,%0101010101000000,0
  391.     dc.w    %0000001010101011,%1010101010000000,0
  392.     dc.w    %0000000101010101,%0101010100000000,0
  393.     dc.w    %0000000000101010,%1010100000000000,0
  394.     dc.w    %0000000000000101,%0100000000000000,0
  395.  
  396. minta5    dc.w    %0000000000001111,%1110000000000000,0
  397.     dc.w    %0000000001111111,%1111110000000000,0
  398.     dc.w    %0000000111111111,%1111111100000000,0
  399.     dc.w    %0000001111110000,%0000111110000000,0
  400.     dc.w    %0000011111110000,%0000111111000000,0
  401.     dc.w    %0000111111110000,%0000111111100000,0
  402.     dc.w    %0001111111110000,%0000111111110000,0
  403.     dc.w    %0011111111110000,%0000111111111000,0
  404.     dc.w    %0011111111110000,%0000111111111000,0
  405.     dc.w    %0111111111110000,%0000111111111100,0
  406.     dc.w    %0111111111110000,%0000111111111100,0
  407.     dc.w    %0111111111110000,%0000111111111100,0
  408.     dc.w    %1111111111110000,%0000111111111110,0
  409.     dc.w    %1110000000000000,%0000000000001110,0
  410.     dc.w    %1110000000000000,%0000000000001110,0
  411.     dc.w    %1110000000000000,%0000000000001110,0
  412.     dc.w    %1110000000000000,%0000000000001110,0
  413.     dc.w    %1110000000000000,%0000000000001110,0
  414.     dc.w    %1111111111110000,%0000111111111110,0
  415.     dc.w    %0111111111110000,%0000111111111100,0
  416.     dc.w    %0111111111110000,%0000111111111100,0
  417.     dc.w    %0111111111110000,%0000111111111100,0
  418.     dc.w    %0011111111110000,%0000111111111000,0
  419.     dc.w    %0011111111110000,%0000111111111000,0
  420.     dc.w    %0001111111110000,%0000111111110000,0
  421.     dc.w    %0000111111110000,%0000111111100000,0
  422.     dc.w    %0000011111110000,%0000111111000000,0
  423.     dc.w    %0000001111110000,%0000111110000000,0
  424.     dc.w    %0000000111111111,%1111111100000000,0
  425.     dc.w    %0000000001111111,%1111110000000000,0
  426.     dc.w    %0000000000001111,%1110000000000000,0
  427.  
  428. minta6    dc.w    %0000111100001111,%0000111100001111,0
  429.     dc.w    %0000111100001111,%0000111100001111,0
  430.     dc.w    %0000111100001111,%0000111100001110,0
  431.     dc.w    %0000111100001111,%0000111100001110,0
  432.     dc.w    %1111000011110000,%1111000011111110,0
  433.     dc.w    %1111000011110000,%1111000011111110,0
  434.     dc.w    %1111000011110000,%1111000011111110,0
  435.     dc.w    %1111000011110000,%1111000011111110,0
  436.     dc.w    %0000111100001111,%0000111100001110,0
  437.     dc.w    %0000111100001111,%0000111100001110,0
  438.     dc.w    %0000111100001111,%0000111100001110,0
  439.     dc.w    %0000111100001111,%0000111100001110,0
  440.     dc.w    %1111000011110000,%1111000011110000,0
  441.     dc.w    %1111000011110000,%1111000011110000,0
  442.     dc.w    %1111000011110000,%1111000011110000,0
  443.     dc.w    %1111000011110000,%1111000011110000,0
  444.     dc.w    %0000111100001111,%0000111100001110,0
  445.     dc.w    %0000111100001111,%0000111100001110,0
  446.     dc.w    %0000111100001111,%0000111100001110,0
  447.     dc.w    %0000111100001111,%0000111100001110,0
  448.     dc.w    %1111000011110000,%1111000011110000,0
  449.     dc.w    %1111000011110000,%1111000011110000,0
  450.     dc.w    %1111000011110000,%1111000011110000,0
  451.     dc.w    %1111000011110000,%1111000011110000,0
  452.     dc.w    %0000111100001111,%0000111100001110,0
  453.     dc.w    %0000111100001111,%0000111100001110,0
  454.     dc.w    %0000111100001111,%0000111100001110,0
  455.     dc.w    %0000111100001111,%0000111100001110,0
  456.     dc.w    %1111000011110000,%1111000011110000,0
  457.     dc.w    %1111000011110000,%1111000011110000,0
  458.     dc.w    %1111000011110000,%1111000011110000,0
  459.  
  460.  
  461. minta7    dc.w    %1111111111111111,%1111111111111110,0
  462.     dc.w    %1111111111111111,%1111111111111110,0
  463.     dc.w    %1111111111111111,%1111111111111110,0
  464.     dc.w    %1111111111111111,%1111111111111110,0
  465.     dc.w    %1111111111111111,%1111111111111110,0
  466.     dc.w    %1111111111111110,%1111111111111110,0
  467.     dc.w    %1111111111111100,%0111111111111110,0
  468.     dc.w    %1111111111111000,%0011111111111110,0
  469.     dc.w    %1111111111110000,%0001111111111110,0
  470.     dc.w    %1111111111100000,%0000111111111110,0
  471.     dc.w    %1111111111000000,%0000011111111110,0
  472.     dc.w    %1111111110000000,%0000001111111110,0
  473.     dc.w    %1111111100000000,%0000000111111110,0
  474.     dc.w    %1111111000000000,%0000000011111110,0
  475.     dc.w    %1111110000000000,%0000000001111110,0
  476.     dc.w    %1111100000000000,%0000000000111110,0
  477.     dc.w    %1111110000000000,%0000000001111110,0
  478.     dc.w    %1111111000000000,%0000000011111110,0
  479.     dc.w    %1111111100000000,%0000000111111110,0
  480.     dc.w    %1111111110000000,%0000001111111110,0
  481.     dc.w    %1111111111000000,%0000011111111110,0
  482.     dc.w    %1111111111100000,%0000111111111110,0
  483.     dc.w    %1111111111110000,%0001111111111110,0
  484.     dc.w    %1111111111111000,%0011111111111110,0
  485.     dc.w    %1111111111111100,%0111111111111110,0
  486.     dc.w    %1111111111111110,%1111111111111110,0
  487.     dc.w    %1111111111111111,%1111111111111110,0
  488.     dc.w    %1111111111111111,%1111111111111110,0
  489.     dc.w    %1111111111111111,%1111111111111110,0
  490.     dc.w    %1111111111111111,%1111111111111110,0
  491.     dc.w    %1111111111111111,%1111111111111110,0
  492.  
  493.  
  494. datas1      dc.w $0048,$0049,$004A,$004B,$004C,$004C,$004D,$004E,$004F,$0050
  495.       dc.w $0051,$0052,$0053,$0053,$0054,$0055,$0056,$0057,$0058,$0059
  496.       dc.w $0059,$005A,$005B,$005C,$005D,$005E,$005F,$005F,$0060,$0061
  497.       dc.w $0062,$0063,$0064,$0064,$0065,$0066,$0067,$0068,$0068,$0069
  498.       dc.w $006A,$006B,$006B,$006C,$006D,$006E,$006F,$006F,$0070,$0071
  499.       dc.w $0071,$0072,$0073,$0074,$0074,$0075,$0076,$0076,$0077,$0078
  500.       dc.w $0078,$0079,$007A,$007A,$007B,$007C,$007C,$007D,$007D,$007E
  501.       dc.w $007E,$007F,$0080,$0080,$0081,$0081,$0082,$0082,$0083,$0083
  502.       dc.w $0084,$0084,$0085,$0085,$0086,$0086,$0087,$0087,$0087,$0088
  503.       dc.w $0088,$0089,$0089,$0089,$008A,$008A,$008B,$008B,$008B,$008B
  504.       dc.w $008C,$008C,$008C,$008D,$008D,$008D,$008D,$008E,$008E,$008E
  505.       dc.w $008E,$008E,$008F,$008F,$008F,$008F,$008F,$008F,$008F,$0090
  506.       dc.w $0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090
  507.       dc.w $0090,$0090,$0090,$0090,$0090,$0090,$0090,$0090,$008F,$008F
  508.       dc.w $008F,$008F,$008F,$008F,$008F,$008E,$008E,$008E,$008E,$008E
  509.      dc.w $008D,$008D,$008D,$008D,$008C,$008C,$008C,$008C,$008B,$008B
  510.      dc.w $008B,$008A,$008A,$0089,$0089,$0089,$0088,$0088,$0088,$0087
  511.      dc.w $0087,$0086,$0086,$0085,$0085,$0084,$0084,$0083,$0083,$0082
  512.      dc.w $0082,$0081,$0081,$0080,$0080,$007F,$007F,$007E,$007D,$007D
  513.      dc.w $007C,$007C,$007B,$007A,$007A,$0079,$0078,$0078,$0077,$0076
  514.      dc.w $0076,$0075,$0074,$0074,$0073,$0072,$0072,$0071,$0070,$006F
  515.      dc.w $006F,$006E,$006D,$006C,$006C,$006B,$006A,$0069,$0068,$0068
  516.      dc.w $0067,$0066,$0065,$0064,$0064,$0063,$0062,$0061,$0060,$0060
  517.      dc.w $005F,$005E,$005D,$005C,$005B,$005A,$005A,$0059,$0058,$0057
  518.      dc.w $0056,$0055,$0054,$0054,$0053,$0052,$0051,$0050,$004F,$004E
  519.      dc.w $004D,$004D,$004C,$004B,$004A,$0049,$0048,$0047,$0046,$0045
  520.      dc.w $0045,$0044,$0043,$0042,$0041,$0040,$003F,$003E,$003E,$003D
  521.      dc.w $003C,$003B,$003A,$0039,$0038,$0037,$0037,$0036,$0035,$0034
  522.      dc.w $0033,$0032,$0032,$0031,$0030,$002F,$002E,$002D,$002D,$002C
  523.      dc.w $002B,$002A,$0029,$0029,$0028,$0027,$0026,$0025,$0025,$0024
  524.      dc.w $0023,$0022,$0022,$0021,$0020,$001F,$001F,$001E,$001D,$001D
  525.      dc.w $001C,$001B,$001A,$001A,$0019,$0018,$0018,$0017,$0016,$0016
  526.      dc.w $0015,$0015,$0014,$0013,$0013,$0012,$0012,$0011,$0010,$0010
  527.      dc.w $000F,$000F,$000E,$000E,$000D,$000D,$000C,$000C,$000B,$000B
  528.      dc.w $000A,$000A,$0009,$0009,$0009,$0008,$0008,$0007,$0007,$0007
  529.      dc.w $0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004,$0003
  530.      dc.w $0003,$0003,$0003,$0002,$0002,$0002,$0002,$0002,$0001,$0001
  531.      dc.w $0001,$0001,$0001,$0001,$0001,$0000,$0000,$0000,$0000,$0000
  532.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  533.      dc.w $0000,$0000,$0000,$0000,$0001,$0001,$0001,$0001,$0001,$0001
  534.      dc.w $0001,$0002,$0002,$0002,$0002,$0002,$0003,$0003,$0003,$0003
  535.      dc.w $0004,$0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
  536.      dc.w $0007,$0007,$0008,$0008,$0008,$0009,$0009,$000A,$000A,$000B
  537.      dc.w $000B,$000C,$000C,$000D,$000D,$000E,$000E,$000F,$000F,$0010
  538.      dc.w $0010,$0011,$0011,$0012,$0013,$0013,$0014,$0014,$0015,$0016
  539.      dc.w $0016,$0017,$0017,$0018,$0019,$0019,$001A,$001B,$001C,$001C
  540.      dc.w $001D,$001E,$001E,$001F,$0020,$0021,$0021,$0022,$0023,$0024
  541.      dc.w $0024,$0025,$0026,$0027,$0027,$0028,$0029,$002A,$002B,$002B
  542.      dc.w $002C,$002D,$002E,$002F,$0030,$0030,$0031,$0032,$0033,$0034
  543.      dc.w $0035,$0035,$0036,$0037,$0038,$0039,$003A,$003B,$003B,$003C
  544.      dc.w $003D,$003E,$003F,$0040,$0041,$0042,$0042,$0043,$0044,$0045
  545.      dc.w $0046,$0047
  546.  
  547. datas2      dc.w $0038,$0038,$0039,$003A,$003A,$003B,$003C,$003C
  548.       dc.w $003D,$003E,$003F,$003F,$0040,$0040,$0041,$0042,$0043,$0043
  549.       dc.w $0044,$0044,$0045,$0046,$0047,$0047,$0048,$0048,$0049,$004A
  550.      dc.w $004B,$004B,$004C,$004C,$004D,$004E,$004E,$004F,$004F,$0050
  551.      dc.w $0051,$0051,$0052,$0052,$0053,$0054,$0054,$0055,$0056,$0056
  552.       dc.w $0057,$0057,$0058,$0058,$0059,$005A,$005A,$005A,$005B,$005C
  553.       dc.w $005C,$005D,$005D,$005E,$005E,$005F,$005F,$0060,$0060,$0061
  554.      dc.w $0061,$0061,$0062,$0062,$0063,$0063,$0064,$0064,$0065,$0065
  555.      dc.w $0065,$0066,$0066,$0066,$0067,$0067,$0068,$0068,$0068,$0069
  556.      dc.w $0069,$0069,$0069,$006A,$006A,$006A,$006B,$006B,$006B,$006C
  557.      dc.w $006C,$006C,$006D,$006D,$006D,$006D,$006D,$006D,$006D,$006E
  558.      dc.w $006E,$006E,$006E,$006E,$006F,$006F,$006F,$006F,$006F,$006F
  559.      dc.w $006F,$006F,$006F,$0070,$0070,$0070,$0070,$0070,$0070,$0070
  560.      dc.w $0070,$0070,$0070,$0070,$0070,$0070,$0070,$0070,$006F,$006F
  561.      dc.w $006F,$006F,$006F,$006F,$006F,$006F,$006F,$006E,$006E,$006E
  562.      dc.w $006E,$006E,$006D,$006D,$006D,$006D,$006D,$006D,$006D,$006C
  563.      dc.w $006C,$006C,$006B,$006B,$006B,$006B,$006A,$006A,$0069,$0069
  564.      dc.w $0069,$0069,$0069,$0068,$0068,$0067,$0067,$0067,$0066,$0066
  565.      dc.w $0065,$0065,$0065,$0064,$0064,$0063,$0063,$0062,$0062,$0061
  566.      dc.w $0061,$0061,$0060,$0060,$005F,$005F,$005E,$005E,$005D,$005D
  567.      dc.w $005C,$005C,$005B,$005A,$005A,$005A,$0059,$0059,$0058,$0057
  568.      dc.w $0057,$0056,$0056,$0055,$0054,$0054,$0053,$0052,$0052,$0052
  569.      dc.w $0051,$0050,$004F,$004F,$004F,$004E,$004D,$004C,$004C,$004B
  570.      dc.w $004B,$004A,$0049,$0049,$0048,$0047,$0047,$0046,$0045,$0045
  571.      dc.w $0044,$0043,$0043,$0042,$0041,$0040,$0040,$003F,$003F,$003E
  572.      dc.w $003D,$003C,$003C,$003B,$003A,$003A,$0039,$0038,$0038,$0037
  573.      dc.w $0036,$0036,$0035,$0034,$0034,$0033,$0032,$0031,$0031,$0030
  574.      dc.w $0030,$002F,$002E,$002D,$002D,$002C,$002B,$002B,$002A,$0029
  575.      dc.w $0029,$0028,$0027,$0027,$0026,$0025,$0025,$0024,$0024,$0023
  576.      dc.w $0022,$0021,$0021,$0020,$0020,$001F,$001E,$001E,$001D,$001D
  577.      dc.w $001C,$001B,$001B,$001A,$001A,$0019,$0019,$0018,$0017,$0017
  578.      dc.w $0016,$0016,$0015,$0015,$0014,$0013,$0013,$0012,$0012,$0012
  579.      dc.w $0011,$0010,$0010,$000F,$000F,$000F,$000E,$000E,$000D,$000D
  580.      dc.w $000C,$000C,$000B,$000B,$000B,$000A,$000A,$0009,$0009,$0009
  581.      dc.w $0008,$0008,$0007,$0007,$0007,$0007,$0006,$0006,$0006,$0005
  582.      dc.w $0005,$0005,$0004,$0004,$0004,$0003,$0003,$0003,$0003,$0003
  583.      dc.w $0002,$0002,$0002,$0002,$0002,$0001,$0001,$0001,$0001,$0001
  584.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  585.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  586.      dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  587.      dc.w $0000,$0000,$0000,$0001,$0001,$0001,$0001,$0001,$0002,$0002
  588.      dc.w $0002,$0002,$0002,$0003,$0003,$0003,$0003,$0003,$0004,$0004
  589.      dc.w $0004,$0004,$0005,$0005,$0005,$0006,$0006,$0007,$0007,$0007
  590.      dc.w $0007,$0008,$0008,$0008,$0009,$0009,$000A,$000A,$000B,$000B
  591.      dc.w $000B,$000C,$000C,$000D,$000D,$000E,$000E,$000F,$000F,$000F
  592.      dc.w $0010,$0010,$0011,$0011,$0012,$0012,$0013,$0013,$0014,$0014
  593.      dc.w $0015,$0016,$0016,$0016,$0017,$0018,$0018,$0019,$001A,$001A
  594.      dc.w $001A,$001B,$001C,$001C,$001D,$001E,$001E,$001F,$001F,$0020
  595.      dc.w $0021,$0021,$0022,$0022,$0023,$0024,$0025,$0025,$0026,$0026
  596.      dc.w $0027,$0028,$0029,$0029,$002A,$002A,$002B,$002C,$002D,$002D
  597.      dc.w $002E,$002E,$002F,$0030,$0030,$0031,$0032,$0033,$0033,$0034
  598.      dc.w $0034,$0035,$0036,$0037
  599.  
  600. code1    dc.w     $28,0,0,0,0
  601. code2    blk.l    6,-1
  602. code3    blk.w    4,0
  603. tarolo    blk.w    16,0
  604. lass    dc.w    $ff
  605. pointr    dc.w    0
  606. textura    dc.l    0
  607.